﻿Namespace EyeOpen.IO.Test

	Friend Class TestLogger
		Implements ILogger
		Private ReadOnly debugMessageList_Renamed As New List(Of String)()

		Private ReadOnly traceMessageList_Renamed As New List(Of String)()

		Private ReadOnly exceptionList As New List(Of Exception)()

		Public ReadOnly Property DebugMessageList() As IEnumerable(Of String)
			Get
				Return debugMessageList_Renamed
			End Get
		End Property

		Public ReadOnly Property TraceMessageList() As IEnumerable(Of String)
			Get
				Return traceMessageList_Renamed
			End Get
		End Property

		Public Sub Debug(ByVal message As String) Implements ILogger.Debug
			debugMessageList_Renamed.Add(message)
		End Sub

		Public Sub Trace(ByVal message As String) Implements ILogger.Trace
			traceMessageList_Renamed.Add(message)
		End Sub

		Public Sub Exception(ByVal exception As Exception) Implements ILogger.Exception
			exceptionList.Add(exception)
		End Sub
	End Class
End Namespace